home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazine 28 Bonus / CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin / data / arttour.dir / 00231_Script_Tour Handlers < prev    next >
Text File  |  1996-06-20  |  702b  |  33 lines

  1. on startMovie
  2.   global animatedCursorSprite,loops
  3.   
  4.   set loops = 0
  5.   set animatedCursorSprite = 6
  6.   
  7. end
  8.  
  9.  
  10. -- handler noCursorAnimation hides the sprite that contains the animated cursor
  11. -- when the playback head jumps back at the beginning of the loop section
  12. --
  13.  
  14. on doAnimation
  15.   global loops,animatedCursorSprite
  16.    trace
  17.   set loops = loops + 1
  18.   put "loops = "&loops
  19.   if loops = 1 then
  20.     setSpriteVisibility animatedCursorSprite,0
  21.     go "StartAnimation"
  22.   else if loops = 2 then setSpriteVisibility animatedCursorSprite,1
  23.   
  24.   updateStage
  25.    trace off
  26. end
  27.  
  28.  
  29. on setSpriteVisibility aSprite,state
  30.   set the visible of sprite aSprite = state
  31.   updateStage
  32.   
  33. end